(import
 (except (rnrs base) map)
 (only (guile)
       lambda* λ)
 ;; SRFI 64 - unit testing forms
 (srfi srfi-64)
 ;; SRFI 1 - list procs
 (srfi srfi-1)
 ;; module under test
 (message-builder))


(test-begin "message-builder-test")

(test-group
 "vocabulary-search"

 (test-equal "build-prompt-string - 01"
   "hi: "
   (build-prompt-string "hi"))

 (test-equal "build-prompt-string - 01"
   "hi [a/b/c]: "
   (build-prompt-string "hi" #:choices '("a" "b" "c")))

 (test-equal "build-prompt-string - 01"
   "[a/b/c]: "
   (build-prompt-string #f #:choices '("a" "b" "c"))))

;; Finish the testsuite, and report results.
(test-end "message-builder-test")
